!ifdef area
$draw del pid !area
!endif

$draw icon 1 ztest 0 name "area" maxspan 500  group 1000000 xpolygon create color #4000ff00 pcolor #ff0000ff ccolor #ff00ffff lwidth 4 psize 10
!area = pid  // запоминаем id примитива в переменной 
$print text "Вычисление площади. Обозначьте курсором вершины области." time 10
